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(2) 81 LOCK GEN = Lock SYSGEN database 
(33 144 Boo OCK_GEN = Unlock SYSCEN database 
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hy 4 Dummy -outines for STASYSGEN 16-SEP-1984 $ 99: 96: ? AX/VMS Macro v04-00 Page 


25-JUN-1983 BOOTS.SRCJSTASW.MAR; 1 
00000001 } a * bor. stacy 3 SET SWITCH FOR STANDALONE CODE VERSIONS 
0 7 TITLE LOCKDATA - ations to lock/unlock SYSGEN database 
p : TITLE STALOCK = Dummy routines for STASYSGEN 
0 4 -IDENT *V04=000" 
Be 8 [eeeneeereercerereereeeeeereeeeeeeeneeeenenerereneneeeeeeeeeeeereeeeeeeeeetes 
3* 
00 10 ;* Copye 1Gny (c) 1978, 1980, 1982, 1984 * 
00 11 :* DIGITAL EQUIPMENT CORPORATION, ° MAYNARD. MASSACHUSETTS. . 
4 \¢ :* ALL RIGHTS RESERVED * 
3 ® 
$09 14 ;* THIS SOFTWARE 1s yaad sues UNDER A LICENSE AND MAY BE USED AND coPieD * 
000 15 ;* ONLY IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE * 
000 1 3* INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR ANY OTHER * 
000 17 3 da THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY * 
0000 18 3* OT - NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY * 
44 4s :* PRAWSFERRED. * 
Py * 
0000 1 ;* THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE * 
0000 ¢ ;* AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT * 
44 ? :* CORPORATION. * 
D4 ® 
0000 5 ;* DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS * 
0000 $ :* SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. * 
0000 3* * 
0000 8 ;* * 
3208 Ps FRRAAAARAAAAAAAAAA AAA AAAAAEAAAAAAAAAAATAAKARAAAAAARAEARARAAAAAeAeeAeeReAAeAeS 
0000 1 3 ++ 
0000 § 3 
4 Z : Facility: System generation and initialization 
0000 5 : Abstract: LOCKDATA provides subroutines which allow synchronization of 
sit $ : access to the SYSGEN device database. 
0000 8 : Environment: 
0000 ys 
B308 29 ; Author: Maryann Hinden, Creation date: 08-June-1983 
0000 4¢ 3 Modification History: 
0000 44: v03-002 sas py Bill Matthews 29-F eb- 1984 
it o2 3 Enable queueing of the SYSGEN database lock request. 
000 ‘9 ; v03-001 MSHO001 Maryann Hinden 13-Jul-1983 
b8 $8 3 Use general addressing mode for EXESGL _sysib" utoeK. 
00 0° 
00 1 : 
it gi ; Include files: 
900 _” SLCKDEF ; Define lock manager symbols 
0 5 SSSDEF : Define System status values 
0000 56 $SYSGMSGDEF > Sysgen messages 


——$—$ SF" 


4E 45 47 33 59 53 00000008 ¢ the t's 0 
45 41 42 41 54 41 46 , 

01 

00000000 001 

00000000 1 

002 
00000000 


16-SEP-1984 


46-SEP-1984 
is ; Equated Symbols: 
61° LOCK_EFN = 2 
6¢ tock: “FLAGS = LCKSM_SYNCSTS!- 
ba LCKSM~SYSTEM 
65 : -PSECT PAGED_DATA NOE XE 


66 ; 
6 ; Data for SYSGEN database lock 
9 boosce_ RESDSC:: 
.ASCID /SYSGENS_DATABASE/ 
71 
, BOOSLOCK STATUS: 


RR BOOSLOCK. Ibs: 
“LONG ©0 


i .PSECT PAGED_CODE NOWRT 


t 90: es: 2 pares Macro v04-00 


Pa 
BOOTS. SRC JLOCKDATA.MAR; 1 es db 


Event flag number used for lock request 
Flags specified for lock request 


Descriptor for resource name 


LOCK_STATUS and LOCK_ID form 
the Tock status block for the 
lock request 


——$—__—., 
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BOOSLOCK_GEN = Lock SYSGEN database 46-SEP-1984 25:04: BOOTS .SRCJLOCKDATA.MAR;1 


~SBTTL BOOSLOCK_GEN = Lock SYSGEN database 


Functional description : 
Lock the SYSGEN database for tage med ig in order to 
synchronize 1/0 database building. Used by LOAD, RELOAD, 
AUTOCONFIGURE, CONNECT. 


This routine asceners to acquire an exclusive mode system lock on 

the SYSGENS_DATABASE resource in executive mode. So that this resource 
is only specific to the local system, rather than a cluster, the SENQ 
request specifies a parent (resources which identifies the system on 


4 
8 
9 
’ 
§ which the request is being made. 
4 

5 


woooon 


The SENQW entry point is used, so that if the resource is not 

available immediately, the process will wait, with the assumption being 
that it will get the resource soon. An event flag number is specified 
to avoid possible interference with CONFIGURE. 


An alternate version of this routine (STALOCK) is provided in 


3 
97 


39 
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COOOoooooooooooooooooo 
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100 which the calls to the entry peints steply return a success status. 
101 This is provided for use by STASYSGEN which runs standalone, and 
138 therefore no locking is necessary. 
Is Satins sequence 
105 J5B/BSBx  BOOSLOCK_GEN 
00 109 Inputs 
3 108 NONE 
0 109 
00 110 Outputs 
00 111 RO - If LBS, locked database 
+ V6 LBC, then no current access to database (SYSG$_NOLOCK) 
00 114 
00 115 BOOSLOCK_GEN:: 
00 116 
00 117 IF NDF, STASW 
00 118 SCMEXEC_S LOCK ; Change mode to take out lock 
0000 119 RSB ; Return 
0000 139 
000 121 LOCK: .WORD “M<R2> ; Null entry mask 
000 1 ¢ MOVL G*EXESGL_SYSID_LOCK,RO ; Get 1D of parent lock 
0000 1 SENQW_S efn = #LOCR_EFN.- 
44 124 Lkmode = #LCKSR_EXMODE.- 
125 Lksb = BOOSLOCK_STATUS,- 
000 126 flags = #LOCK_FLAGS,- 
000 127 resnam = BOO$GB_RESDSC,- 
000 128 par! = RO 
000 129 BLBC 0,10$ :; If LOC. error 
9000 130 MOVZWL BOOSLOCK_ STATUS .RO : Get final status 
000 131 BLBC RO,10$ ; Success? 
0000 «(1 § RET 3 Yes 
000 1335 108: MOVL #SYSG$_NOLOCK ,RO : Indicate error 
000 134 RET 
fan 
139 


50 


= Lock SYSGEN SEM ase yagi oats yi 90:00:28 t 


- D routines for STASYSGEN 
BOOSLOCK 


=GEN 


op 


004 


MOVZWL #SS$_NORMAL, RO 
RSB 


-ENDC 


AX/VMS Macro v04-00 
BOOTS. SRCJLOCKDATA.MAR; 1 


3; Force success 
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-SBTTL BOOSUNLOCK_GEN = Unlock SYSGEN database 
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dhsgergy om as ay phe op 
Dequeue the 


a sequence 
J38/BSBx BOOSUNLOCK_GEN 


Input 


Output 


Be Se Be Os Ge Oe Se Oe Se Se Sete Sete 
+ 


BOOSUNLOCK_GEN: : 
IF NDF ,STASW 
SCMEXEC_S UNLOCK 
RSB 


UNLOCK: .WOR 0 
$DEQ_S lkid = BOOSLOCK_ID 
BLBS RO,10$ 
MOVL  § #SYSG$_DEQERR,RO 
10$: RET 
oIFF 


MOVZWL #SS$_NORMAL ,RO 
RSB 


- ENDC 
- END 


90: 0% 4: 33 yaacwes Macro v04-00 
4 


RO - If LBs. successful completion 
LBC, error on dequeue (probably serious) = status SYSG$_DEQERR. 


taoors. sRe LOCKDATA.MAR; 1 


ock requested by BOOSLOCK_GEN. 


Lock id in lock status block (implicit). 


Change mode to access lock 
Return 


Null entry mask 
Dequeue lock 

If LBS, all okay 
Indicate error 


Force success 


roe 
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i ass ta hs 00: 0b a3 acs Macro v04-00 Page 7 
| Symbol table 46-SEP-1984 23:04:48 ([BOOTS.SRCJLOCKDATA.MAR; 1 (3) 
BOOSGB_RESDSC 0000000 RG 0 
BOOSLOCK_GEN 0090 $6 RG 
BOOSLOCK_1 88 if RG 
BOOSLOCK STATUS 00018 RG 
LOCK_GEN 4 RG 
LCKSM_SYNCSTS = 00000008 
LCKSM_ SYSTEM = 44944 
LOCK_EFN = B60 000 
LOCK FLAGS = 0000001 
SS$_NORMAL = 00000001 
STASW = 00000001 
-oe,. ceoe c7eeeceecece + 
! Psect synopsis ! 
teem enw ewe enn e ce + 
PSECT name Allocation PSECT No. Attributes 
. ABS . 00000000 ¢ 0.) 00 ¢ 0.) NOPIC USR CON ABS LCL NGSHR NOEXE NORD NOWRT NOVEC BYTE 
SABSS 00000000 ¢ 0.) 01 ¢ 1.) NOPIC USR CON ABS LCL NOSHR EXE RD WRT NOVEC BYTE 
PAGED_DATA 00000020 ¢ 32.) 02 <¢ -) NOPIC USR CON REL LCL NOSHR NOEXE RD WRT NOVEC BYTE 
PAGED-CODE 00000008 ¢ 8.) 03 ¢ 3.) NOPIC USR CON REL LCL NOSHR EXE RD NOWRT NOVEC BYTE 
on tweet eon ree ene wm omer eres + 
! Performance indicators ! 
GSS eESeessenoesncoene> 
Phase Page faults CPU Time Elapsed Time 
Initialization 31 00:00:00.07 00:00:00.49 
Command processing 108 00:00:00.88 00:00:04.00 
Pass 1 238 00:00:05.06 00:00:11.27 
Symbol table sort 0 00:00:00.77 00:00:02.41 
Pass 2 49 80:60:00: 95 00:00:01.59 
Symbol table output 3 00:00:00.0 00:00:00.03 
Psect synopsis output 2 00:00:00.01 00:00:00.02 
Cross-reference output g 90:00:00.00 00:00:00.00 
Assembler run totals 43 00:00:07.75 00:00:19.82 


The working set Limit was 1050 pages. 2 

24893 bytes (49 pages) of virtual memory were used to buffer the intermediate code. 

There were 30 pages of symbol table space allocated to hold 508 non-local and 0 local symbols. 
180 source Lines were read in Pass 1, producing 15 object records in Pass 2. 

10 pages of virtual memory were used to define 9 macros. 


Gueoeeeceesoscoccoecooescece$ 


! Macro Library statistics H 
tem eee new ewe eee sew e wm mee wr eooee 


Macro Library name Macros defined 
_8255$DUA28: PORTS 00) 700015 A831 0 
_$255$DUA28:(SYS.OBJILIB.MLB; 1 
$255$DUA28: CSYSLIBISTARLET.MLB;2 5 
TOTALS (all libraries) 6 


575 GETS were required to define 6 macros. 


. ¥ 
| STALOCK - Dummy routines for STASYSGEN 16-SE 
VAX-11 Macro Run Statistics 4-SE 


“1984 28:0¢:48 UBuovs:sacScockpaTacman:1 "29° <8, 


There were no errors, warnings or information messages. 
MACRO/LIS=LIS$:STALOCK/OBJ=OBJ$:STALOCK MSRC$:STASW/UPDATE=(ENHS:STASW) #MSRCS$:LOCKDATA/UPDATE=(ENH$:LOCKDATA) +EXECML$/LIB*LIB$:BOOTS 
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